(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[      1623,         60]
NotebookOptionsPosition[      1276,         43]
NotebookOutlinePosition[      1643,         59]
CellTagsIndexPosition[      1600,         56]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"Permutations", "[", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", " ", "1", ",", " ", "2", ",", " ", "3", ",", " ", "4", ",", " ",
      "5", ",", " ", "6", ",", " ", "7", ",", " ", "8", ",", " ", "9"}], 
    "}"}], "]"}], "[", 
  RowBox[{"[", "1000000", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.4475908392237864`*^9, 3.4475908459786725`*^9}, {
  3.4475909224664536`*^9, 3.4475909502972097`*^9}, {3.447591229631629*^9, 
  3.4475912792870655`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "2", ",", "7", ",", "8", ",", "3", ",", "9", ",", "1", ",", "5", ",", "4", 
   ",", "6", ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{3.4475912958232775`*^9}]
}, Open  ]]
},
WindowSize->{601, 750},
WindowMargins->{{Automatic, 474}, {57, Automatic}},
ShowSelection->True,
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (November 10, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 486, 11, 31, "Input"],
Cell[1056, 35, 204, 5, 30, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
